home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / Jeff Interpreter Docs / Function.Pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-08  |  198 b   |  16 lines  |  [TEXT/PASC]
  1. program PROG3;
  2.  
  3.  var
  4.   A, B : Integer;
  5.  
  6.  function F (X : Integer) : Integer;
  7.  
  8.  begin (* dump1 *)
  9.   F := X * X;  (* dump2 *)
  10.  end; (* F *)
  11.  
  12. begin
  13.  A := 5;
  14.  B := F(F(A));
  15.  WRITELN(B);
  16. end. (* PROG3 *)